home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / VAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  979 b   |  46 lines
  1.  
  2. *DEFINE VAR VARS
  3. *
  4. *      VAR   VAR-LIST
  5. *
  6. *      VAR-LIST:=VAR-ITEM|VAR-ITEM,VAR-LIST
  7. *      VAR-ITEM:=VAR|(VAR,SIZE)
  8. *      VAR IS VARIABLE SYMBOL
  9. *      SIZE IS NUMBER OF WORDS TO ALLOCATE
  10.  
  11. VAR    $MACRO  A1,A2,A3,A4,A5,A6,A7,A8
  12.        DSEG              DATA SEG
  13.        $IF     A1.L#=0
  14.        $VAR3   :A1:
  15.        $ENDIF
  16.        $IF     A2.L#=0
  17.        $VAR3   :A2:
  18.        $ENDIF
  19.        $IF     A3.L#=0
  20.        $VAR3   :A3:
  21.        $ENDIF
  22.        $IF     A4.L#=0
  23.        $VAR3   :A4:
  24.        $ENDIF
  25.        $IF     A5.L#=0
  26.        $VAR3   :A5:
  27.        $ENDIF
  28.        $IF     A6.L#=0
  29.        $VAR3   :A6:
  30.        $ENDIF
  31.        $IF     A7.L#=0
  32.        $VAR3   :A7:
  33.        $ENDIF
  34.        DEND              DATA END
  35.        $IF     A8.L#=0
  36.        VAR     :A8:
  37.        $ENDIF
  38.        $END
  39.  
  40. $VAR3  $MACRO   A,B
  41.        $IF  B.L#=0
  42. :A:    BSS  :B:          :B: WORDS NAME :A:
  43.        $ELSE
  44. :A:    BSS  1            1 WORD NAMED :A:
  45.        $ENDIF
  46.        $END